home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
buddy
/
samperr.cls
< prev
Wrap
Text File
|
1996-04-16
|
1KB
|
55 lines
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "Class1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Public Sub A_ReadMe()
'This template is designed for use with the RAD-Copy Buddy.
'
'Purpose: This template provides OLE Server and Client
' error handling routines.
'
'Usage: 1) Change {{Project}} to a descriptive name
' OTHER THAN the OLE name of your project.
' 2) Update the error handling action to
' suit your particular app.
' 3) RAD-Copy the appropriate procedure into all
' procedures in your project.
'
'Comments: Server Error Handler will always return the
' original offending procedure and error, no
' matter how deeply nested within the Server's
' object hierarchy.
'
'Tags:
'{{Project}}
End Sub
Public Sub ServerError()
On Error GoTo ErrorHandler:
ErrorHandler: '-1 Start From Bottom!
If Left$(Err.Source, Len("Project")) = "Project" Then
Err.Raise Err.Number, Err.Source
Else
Err.Raise Err.Number, "Project.ModuleName.ProcName"
End If
Exit Sub
End Sub
Public Sub ClientError()
On Error GoTo ErrorHandler:
ErrorHandler: '-1 Start From Bottom!
MsgBox "Error: " & Error$(Err.Number) & Chr$(13) _
& "Occurred in :" & Err.Source, 16, "Error Encountered"
Exit Sub
End Sub